Profile of (eval 312)[Sub/Quote.pm:3]

Filename	(eval 312)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 21 statements in 150µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	7µs	20µs	JSON::Schema::Modern::::BEGIN@7 JSON::Schema::Modern::BEGIN@7
1	1	1	7µs	15µs	JSON::Schema::Modern::::short_circuit JSON::Schema::Modern::short_circuit
1	1	1	3µs	12µs	Method::Generate::Accessor::_Generated::BEGIN@24.164
1	1	1	2µs	2µs	Method::Generate::Accessor::_Generated::BEGIN@12.163

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	0s			my $isa_check_for_short_5fcircuit = ${$_[1]->{"\$isa_check_for_short_5fcircuit"}};
3	1	1µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4	1	0s			my $default_for_short_5fcircuit = ${$_[1]->{"\$default_for_short_5fcircuit"}};
5	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
6					package JSON::Schema::Modern;
7	2	33µs	2	33µs	# spent 20µs (7+13) within JSON::Schema::Modern::BEGIN@7 which was called: # once (7µs+13µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 20µs making 1 call to JSON::Schema::Modern::BEGIN@7 # spent 13µs making 1 call to warnings::unimport
8					# spent 15µs (7+8) within JSON::Schema::Modern::short_circuit which was called: # once (7µs+8µs) by JSON::Schema::Modern::evaluate at line 353 of JSON/Schema/Modern.pm sub short_circuit {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 2µs within Method::Generate::Accessor::_Generated::BEGIN@12.163 which was called: # once (2µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	0s			$^H = 1762;
14	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	2µs			%^H = (
16					);
17	1	34µs	1	2µs	} # spent 2µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.163
18					# END quote_sub PRELUDE
19	1	0s			Carp::croak("short_circuit is a read-only accessor") if @_ > 1;
20					exists $_[0]->{"short_circuit"} ?
21					$_[0]->{"short_circuit"}
22	1	3µs			: do {
23	1	2µs	1	8µs	my $value = $default_for_short_5fcircuit->($_[0]); # spent 8µs making 1 call to JSON::Schema::Modern::__ANON__[JSON/Schema/Modern.pm:69]
24	5	69µs	2	21µs	# spent 12µs (3+9) within Method::Generate::Accessor::_Generated::BEGIN@24.164 which was called: # once (3µs+9µs) by Sub::Quote::_clean_eval at line 24 do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_short_5fcircuit, "Bool", $value, "attribute_name","short_circuit","attribute_step","isa check","mgaca","0","varname","\$self->{\"short_circuit\"}"); $value }; # spent 12µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@24.164 # spent 9µs making 1 call to warnings::unimport
25	1	1µs			$_[0]->{"short_circuit"} = $value
26					}
27					}
28	1	1µs			$$_UNQUOTED = \&short_circuit;
29					}
30	1	4µs			1;
31
32					;